home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / AGNUS / SRC / OC_TEST / NEW.M < prev    next >
Encoding:
Text File  |  1998-04-29  |  257 b   |  23 lines
  1. /*
  2.     EXAMPLE 5: new.m -- New & Free for supported classes.
  3. */
  4.  
  5. #include <oc.h>
  6. #include "module.h"    
  7. #include "d_module.h"
  8.  
  9.  
  10. /* Pure data. Thus clone and free works fine.    */
  11. $new Cstr ()
  12.     *..value = 0;
  13. $clone
  14. $free
  15. $
  16.  
  17. $new Pstr ()
  18.     ..len = 0;
  19. $clone
  20. $free
  21. $
  22.  
  23.